home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_2[commodore_1983].nbz / sprmac (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  878 b   |  19 lines
  1. 10 DIM SP(10)
  2. 100 REM MACHINE CODE ROUTINE TO SERVICE SPRITES
  3. 110 REM IT UPDATES THEIR POSITION EVERY INTERRUPT
  4. 120 DATA165,47,133,251,165,48,133,252,160,0,177,251,201,83,208,8,200,177,251
  5. 130 DATA201,80,240,38,136,200,200,177,251,133,253,200,157,251,133,254,24,165,251
  6. 140 DATA101,253,133,251,165,252,101,254,133,252,197,50,208,212,165,251
  7. 150 DATA197,49,208,206,76,49,234
  8. 160 DATA152,24,105,6,168,162,0,200,200,24,177,251,41,1,240,1,56,102,255,200
  9. 170 DATA177,251  ,157,0,208,200,177,251,157,1,208,232,232,200,224,16,208,225
  10. 180 DATA165,255,141,  16,208
  11. 182 DATA162,0,200,200,177,251,240,29,169,0,157,4,212,177,251,157,4,212,169,0
  12. 184 DATA145,251,200,177,251,157,1,212,200,177,251,157,0,212,76,208,3
  13. 186 DATA200,200,200,138,24,105,7,170,224,21,208,209,76,49,234
  14. 190 REM INSERT WEDEE (CODE AT 988)
  15. 200 DATA120,169,64,141,20,3,169,3,141,21,3,88,96
  16. 210 FORJ=832 TO 1000
  17. 220 READA:POKEJ,A         :NEXTJ
  18. 230 SYS(988):A=2^31:B=2^8
  19.